#!/usr/bin/perl -w


$name = $ARGV[0];
$age = -M $ARGV[0];
foreach (@ARGV) {
  if ( -M $_ > $age) {
  $name = $_;
  $age = -M $_
  }
}

print "The oldest file is $name age is $age \n";
